home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TeX 1995 July
/
TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO
/
graphics
/
pstex
/
fopenp.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-01-27
|
2KB
|
108 lines
/*
* Fopenp function.
*
* Neil Hunt (Neil%Teleos.com@ai.sri.com)
*
* Copyright (c) 1989 Teleos Research, Inc 1989.
* Copyright (c) 1988 Schlumberger Technologies, Inc 1988.
*
* Anyone can use this software in any manner they choose,
* including modification and redistribution, provided they make
* no charge for it, and these conditions remain unchanged.
*
* This program is distributed as is, with all faults (if any), and
* without any warranty. No author or distributor accepts responsibility
* to anyone for the consequences of using it, or for whether it serves any
* particular purpose at all, or any other reason.
*
* $Log: fopenp.c,v $
* Revision 1.1 90/04/17 13:05:43 kakiuchi
* Initial revision
*
* Revision 1.1 89/02/10 18:40:39 neil
* Initial revision
*
* Copied from newlib.
* Revision 1.2 88/09/19 18:29:53 hunt
* Fixed typo.
*
* Revision 1.1 88/09/19 15:52:47 hunt
* Initial revision
*/
static char rcsid[] = "$Revision: 1.1 $";
#include <stdio.h>
#include <string.h>
#ifdef MSDOS
#define PATHNAMEDELIMITER '\\'
#define PATHNAMEDELIMITERSTR "\\"
#else
#define PATHNAMEDELIMITER '/'
#define PATHNAMEDELIMITERSTR "/"
#endif
#ifdef MSDOS
#define ENVDELIMITER ';'
#else
#define ENVDELIMITER ':'
#endif
FILE *
fopenp(char *path, char *name, char *fullname, char *mode)
{
register char *p;
register FILE *f;
#ifdef MSDOS
if((*name == PATHNAMEDELIMITER) || (*(name+1) == ':'))
#else
if(*name == PATHNAMEDELIMITER)
#endif
{
strcpy(fullname, name);
return fopen(fullname, mode);
}
while(*path)
{
/*
* Copy first/next path prefix to fullname.
* Skip over the ':'.
* Add the '/'.
* Concat the filename.
*/
for(p = fullname; *path != '\0'; )
{
#ifdef MSDOS
if (*path == ENVDELIMITER)
#else
if (*path == ENVDELIMITER || *path == ';')
#endif
{
path++;
break;
}
else
*p++ = *path++;
}
#ifdef MSDOS
if (*(p-1) != PATHNAMEDELIMITER) *p++ = PATHNAMEDELIMITER;
#else
*p++ = PATHNAMEDELIMITER;
#endif
strcpy(p, name);
/*
* Try to open the file.
*/
if((f = fopen(fullname, mode)) != (FILE *)NULL)
return f;
}
return (FILE *)NULL;
}